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KeyDefs: DEFINITIONS - BEGIN 

updown: TYPE « {down, up}; 

KeyArray: TYPE - ARRAY [0..5) OF WORD; 

KeyBits: TYPE - MACHINE DEPENDENT RECORD [ 
blank: [0, .377B], 

Key sell, Key set 2, Key set3, Key set4, Keysets: updown, 
Red, Blue, Yellow: updown, 
Five,Four,Six,E,Seven,D,U,V. 
Zero,K,Dash,P,Slash,BackSlash,LF,BS: updown, 
Three.Two,W,Q,S,A,Nine,I, 

X, 0, L, Comma, Quo te, R ightB racket, Spare 2, Sparel: updown. 
One, ESC. TAB, F.Ctrl ,C,J,B, 

Z, LeftShi ft, Period, Semi Col on, Re turn, Arrow, DEL, FL3: updown, 
R, T,G,Y.H, Eight, N.M, 
Lock, Space, LeftB racket, Equal ,RightShift , Spares, FL4,FR5 : updown]; 

Keys: POINTER TO KeyBits « LOOPHOLE[177033B] ; 

MouseButtofl: TYPE « {RedYel lowBlue, RedBlue, RedYellow, Red, BlueYellow, Blue, Yellow, None}; 

MouseBits: TYPE « MACHINE DEPENDENT RECORD [ 
blank: [0.,377B], -- Diablo, Versatec, etc. 
keyset: [0..37B]. -- ■> down. i.e. normal state is 37B 
buttons: MouseButton] ; -- 0=> down, normal is 7B » MouseButton[None] 

Mouse: POINTER TO MouseBits « LOOPHOLE[Keys] ; 

KeyName: TYPE « { 

xO, xl, x2, x3, x4, x5, x6, x7, 

Keysetl, Key set2, Key sets, Key set4, Keysets, 

Red, Blue, Yellow. 

Five, Four, Six, E,Seven,D.U,V, 

Zero,K,Dash.P,Slash,BackSlash,LF,BS, 

Three,Two,W,Q,S,A,Nine,I, 

X, 0, L, Comma, Quo te.R ightB racket, Spare 2. Sparel, 

One, ESC, TAB, F.Ctrl ,C,J,B, 

Z, Lef tSh i ft, Period, Semi Co Ion, Re turn, Arrow, DEL, FL3, 

R.T.G.Y.H. Eight. N.M, 

Lock, Space, Lef tBracket, Equal , Righ tSh if t, Spares, FL4,FR5}; 

~- Alto II names for some keys can be different 

FLl: KeyName » DEL; 

FL2: KeyName « LF; 
BW: KeyName « Sparel; 

FRl: KeyName - Spare3; 

FR2: KeyName = BackSlash; 

FR3: KeyName = Arrow; 

FR4: KeyName « Spare2; 

Keyltem: TYPE - RECORD [ 
Letter: BOOLEAN, 
ShiftCode: [0..177B], 
NormalCode: [0..377B]]; 

ChangeKey: PROCEDURE [key: KeyName, action: Keyltem] RETURNS [oldAction: Keyltem]; 

Keyboard: PROGRAM; 
KeyStreams: PROGRAM; 

END. 


